Visual Basic Toolbox

home *** CD-ROM | disk | FTP | other *** search

/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / forms / frmwiz / rdblib / test.frm (.txt) < prev

Wrap

Visual Basic Form | 1994-04-16 | 13.7 KB | 344 lines

Form1 (Royce D. Bacon (RDB) Common Library Demo wwwwwwwwwwwwwwp wwwwwwwwwwwwwwp Form15t SSPanel# PnlHelp SSPanel# Help message goes here CMDialog1 CommonDialog rberror.hlp%0 BtnEject SSCommand Print Page Press to print a page TxtDate 01/01/94 Enter the date to be validated Txtprintwidth Enter the line width to use Txtfmtline !1Enter the beginning line for the text to print on BtnFormat SSCommand Format String 2Press to print the text in the specified line size Txtformatstring This String Will Be Formatted Into individual lines for printing. This text should be long enough to create multiple lines on the printed output. ! Enter the string to be formatted Txtrjcol !&Enter the rightmost column to align on Txtrjformat ###,##0.00 !8Enter the format string to use for formatting the number Btnrightjustify SSCommand Right Jusitfy ,Press to format and right justify the number Txtrjnum ! Enter the number to be formatted ChkNewLine SSCheck Start a New Line +Check to start a new line after this string Txtctrline !0Enter the line number for the string to print on BtnCenter SSCommand Center String Press to center the string Txtctrstring This String Will Be Centered Enter the string to be centered TxtErrorNum !&Enter the error number to be generated Command3D2 SSCommand Press to terminate the program BtnGenError SSCommand Generate Error APress to generate indicated error and demo error handling routine Label2 RB_Validate_Date Label2 RB_Text_Format Label2 RB_Rjustify Label2 RB_ErrorHandler Label2 RB_Center Label1 Date To Be Validated Label1 Print Line Width Label1 Print Starting On Line Label1 String To Be Formatted Label1 At Column Label1 Format To Use Label1 Number To Be Formatted Label1 On Line Label1 String To Be Centered Label1 Error Number To Generate MnuFunc &Functions MnuCenter &Center String MnuGenErr Generate &Error MnuFormat &Format String MnuRightJustify &Right Justify Number Mnudash1 MnuPrint &Print Page MnuHelp &Help MnuErrHelp &Help On Errors MnuAbout &About Command3D2_Click form17 Command3D1_Click commanderrorV RB_ErrorHandler@ Action erraction database TxtErrorNum MB_ICONINFORMATION BtnCenter_click nline TxtCtrLine pcolL RB_Centerp TxtString TxtCtrStringK ChkNewLine5 Value BtnRightJustify_ClickW RB_Rjustify Txtrjstring@ TxtRJFormat TxtRJColZ BtnFormat_Click stringtoprint/ RB_Text_Format Txtfmtstringl TxtPrintWidth printer CurrentXq TxtFmtLine CurrentY TxtDate_Change TxtDate_LostFocus RB_Validate_Date TxtDate Form_Load ScaleMode CHARl Txtctrline_Change Txtformtstring TxtFormatString TxtRJNumB newline cstring+ fstring rjformat datestring BtnEject_Click TxtErrorNum_Change BackColor% ForeColor WHITE SelStart SelLength TxtErrorNum_GotFocusG TxtErrorNum_LostFocus" COLOR_GRAY BLACK4 Txtctrstring_Change Txtctrsting Txtrjnum_Change\ Txtrjnum_GotFocusu Txtctrstring_GotFocus Txtctrline_GotFocus Txtrjformat_Change Txtrjformat_GotFocus Txtrjcol_Change Txtrjcol_GotFocus Txtfmtline_Change& Txtfmtline_GotFocusQ Txtprintwidth_Changek Txtprintwidth_GotFocus Txtprintwidht Txtformatstring_Change Txtformatstring_GotFocus TxtDate_GotFocus Txtctrstring_LostFocus Txtctrline_LostFocus Txtrjnum_LostFocus Txtrjformat_LostFocus Txtrjcol_LostFocus* Txtfmtline_LostFocusE Txtprintwidth_LostFocus Txtformatstring_LostFocus[ INCHES ScaleLeft MnuCenter_Click MnuGenErr_ClickC BtnGenError_Click MnuFormat_Click MnuRightJustify_Click MnuPrint_Click0 MnuErrHelp_Click CMDialog1 HelpCommandb HELP_INDEX MnuAbout_ClickM LogoFrmV MODAL LogoFormp rjnumk rb_systemname& rb_version RB_GRAY BtnGenError_MouseMove Button Shiftg ShowHelpt BtnGenErrorK PBtnS Control PnlHelp Visible Caption HeightS Width BtnCenter BtnCenter_MouseMove Btnrightjustify Btnrightjustify_MouseMove BtnFormat BtnFormat_MouseMove Btneject BtnEject_MouseMoveK Command3D2_MouseMove Command3d2 nPnlTop nPnlLeft ChkNewLine_Click~ ChkNewLine_GotFocuso ChkNewLine_LostFocus BtnGenError_GotFocus BtnGenError_LostFocus BtnCenter_GotFocus BtnCenter_LostFocus Btnrightjustify_GotFocus- Btnrightjustify_LostFocusC BtnFormat_GotFocusZ BtnFormat_LostFocus BtnEject_GotFocus BtnEject_MouseDown BtnEject_LostFocus Command3D2_GotFocus Command3D2_LostFocus FldGotFocus PControl FldLostFocus BtnCenter_click BtnCenter_GotFocus BtnCenter_LostFocus BtnCenter_MouseMove BtnEject_Click BtnEject_GotFocus BtnEject_LostFocus BtnEject_MouseMove BtnFormat_Click BtnFormat_GotFocus BtnFormat_LostFocus BtnFormat_MouseMove BtnGenError_Click Error ignored RB_ErrorHandler Test Example of call to RB_ErrorHandler routine ErrTest commanderror BtnGenError_GotFocus BtnGenError_LostFocus BtnGenError_MouseMove BtnRightJustify_Click Btnrightjustify_GotFocus Btnrightjustify_LostFocus Btnrightjustify_MouseMove ChkNewLine_GotFocus ChkNewLine_LostFocus Command3D2_Click Command3D2_GotFocus Command3D2_LostFocus Command3D2_MouseMove FldGotFocus FldLostFocus Form_Load RDBLIB Demo MnuAbout_Click MnuCenter_Click MnuErrHelp_Click MnuFormat_Click MnuGenErr_Click MnuPrint_Click MnuRightJustify_Click ShowHelp Subroutine to show popup help for a control To use: add a panel control called PnlHelp to the form= Set control's tag property to help message desiredt Copy this subroutine to the form code and uncomment code belown In mousemove event of control add ShowHelp control-name, x, y In click event or other events of control that cause action add ShowHelp control-name, 0, 0 ' Hides helpt Determine max x & y coordinates with 80 twip border boundry of 80 twips allowed to be able to catch cursor as exiting control if exiting control area turn off help panel Determine location for help panel Assume below and to right Put panel above control if not enough room below Put panel to left if not enough room to right if same settings exit to prevent flickering effectr get help msg from control's tag and position help panel Txtctrline_GotFocus Txtctrline_LostFocus Txtctrstring_GotFocus Txtctrstring_LostFocus TxtDate_GotFocus TxtDate_LostFocus TxtErrorNum_GotFocus TxtErrorNum_LostFocus Txtfmtline_GotFocus Txtfmtline_LostFocus Txtformatstring_GotFocus Txtformatstring_LostFocus Txtprintwidth_GotFocus Txtprintwidth_LostFocus Txtrjcol_GotFocus Txtrjcol_LostFocus Txtrjformat_GotFocus Txtrjformat_LostFocus Txtrjnum_GotFocus Txtrjnum_LostFocus